00100		DIMENSION I(50),Z(10)
00200	1	FORMAT(' TYPE X,Y1,Y2,...ETC. <CR> '/
00300		1 '  WHERE   X=THE NUMBER OF EQUAL DIVISIONS OF Y'/
00400		1 '   AND    Y=RHYTHMIC VALUES.  (E.G.  2. = DOTTED HALF)'/
00500		1 '                 H=HELP '/)
00600	5	FORMAT('  ')
00700	2	FORMAT(12F)
00800	3	FORMAT(' THE NOTE VALUE =',F8.4)
00900	6	FORMAT(50A1)
01000	4	TYPE 5
01100		TYPE 1
01200		TYPE 5
01300		ACCEPT 6,I
01400		IF(I(1).EQ.'H'.OR.I(1).EQ.'?')GO TO 11
01500		REREAD 2,X,Y,Z
01600		IF(X.EQ.0)CALL EXIT
01700		IDOT=0
01800		DO 7 K=4,10
01900	7	IF(I(K).EQ.'.')IDOT=IDOT+1
02000		Y=4./Y
02100		IF(IDOT.EQ.0)GO TO 88
02200		V=Y
02300		DO 10 K=1,IDOT
02400		V=V/2.
02500	10	Y=V+Y
02600		IF(Z(1).EQ.0)GO TO 9
02700	88	DO 8 K=1,10
02800	8	IF(Z(K).NE.0)Y=Y+4./Z(K)
02900	9	V=4.*(X/Y)
03000		TYPE 5
03100		TYPE 3,V
03200		GO TO 4
03300	11	TYPE 12
03400		GO TO 4
03500	12	FORMAT(' ONLY THE 1ST RHYTHMIC VALUE CAN BE DOTTED.'/
03600		1 '  UP TO 10 VALUES FOR "Y" CAN BE TYPED.'/
03700		1 ' FOR EXAMPLE:'/
03800		1 ' TO GET 7 IN THE TIME OF A NORMAL TRIPLET (12TH NOTE) '/
03900		1 ' TIED TO A HALF TIED TO A SIXTEENTH, TYPE:'/
04000		1 '     7  12 2 16 <CR>'/
04100		1 ' TO GET 11 IN THE TIME OF A DOTTED QUARTER, TYPE:'/
04200		1 '     11 4.  <CR>'/)
04300		END